﻿
Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class DocumentosBL
    Private documentoDA As DocumentoDA = Nothing

    Public Function Add(ByVal documentoBE As DocumentosBE) As String
        Return documentoDA.Add(documentoBE)
    End Function
    Public Function List(ByVal IdLote As Integer) As DataTable
        Return documentoDA.ListAll(IdLote)
    End Function
    Public Function UltimoDocumento() As Integer
        Return documentoDA.UltimoDocumento
    End Function
    Public Function AgregarMetada(ByVal StrSQL As String) As String
        Return documentoDA.AgregaMetada(StrSQL)
    End Function
    Public Sub New()
        DocumentoDA = New DocumentoDA
    End Sub
End Class
